home *** CD-ROM | disk | FTP | other *** search
/ fxPAINT 1.0 / fxPAINT 1.0.iso / demos / blackirc / rexx / outputraw.birx < prev    next >
Encoding:
Text File  |  1998-12-26  |  593 b   |  28 lines
  1. /* Demo script for BlackIRC */
  2.  
  3. options results
  4. failat 21
  5.  
  6. 'ECHO <<OutputRaw>> Welcome!!'
  7. 'ECHO <<OutputRaw>> This little ARexx-script asks for new lines'
  8. 'ECHO <<OutputRaw>> as often as possible and outputs them as RAW'
  9. 'ECHO <<OutputRaw>> lines to the normal lister! Just a small example'
  10. 'ECHO <<OutputRaw>> to demonstrate, what is possible with BIRC.'
  11.  
  12. CURLINENUM
  13. lnnum=result
  14.  
  15. DO FOREVER
  16.         ollnnum=lnnum
  17.         CURLINENUM
  18.         lnnum=result
  19.  
  20.         if lnnum>ollnnum then do
  21.                 GETLASTLINE
  22.                 ll=result
  23.                 USERECHO ll
  24.         end
  25. END
  26.  
  27. EXIT
  28.